home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / lblcs.arc / KEY_FLSH.ASM < prev    next >
Assembly Source File  |  1985-04-17  |  638b  |  51 lines
  1.  
  2. ;---------------------------------------------------------------
  3. ;
  4. ; name        key_flush    - flush keyboard buffer
  5. ;
  6. ; synopsis    VOID    key_flush()
  7. ;
  8. ; description    Flushes (clears out) the keyboard buffer.
  9. ;
  10. ;
  11. ;--------------------------------------------------------------
  12.  
  13.     include    dos.mac
  14.  
  15. keyboard    equ    16h    ; keyboard interrupt number
  16.  
  17.  
  18.     IF    LPROG
  19. X    EQU    6        ;OFFSET OF ARGUMENTS
  20.     ELSE
  21. X    EQU    4        ;OFFSET OF ARGUMENTS
  22.     ENDIF
  23.  
  24.     PSEG
  25.  
  26.  
  27.     PUBLIC    key_flush
  28.  
  29.  
  30.     IF    LPROG
  31. key_flush    PROC    FAR
  32.     ELSE
  33. key_flush    PROC    NEAR
  34.     ENDIF
  35.  
  36.  
  37.     push    bp
  38.  
  39.     mov    ah,3
  40.     int    keyboard
  41.  
  42.     pop    bp
  43.     ret
  44.  
  45. key_flush    ENDP
  46.  
  47.     endps
  48.     end
  49.  
  50.  
  51.